home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_perl.idb / usr / freeware / src / perl / patches.z / patches
Encoding:
Text File  |  1998-10-28  |  19.2 KB  |  612 lines
  1. *** ./lib/chat2.pl    Thu Jul 23 21:00:53 1998
  2. --- ../perl5.005_02/./lib/chat2.pl    Fri Aug 14 11:06:00 1998
  3. ***************
  4. *** 4,12 ****
  5.   # multihome additions by A.Macpherson@bnr.co.uk
  6.   # allow for /dev/pts based systems by Joe Doupnik <JRD@CC.USU.EDU>
  7.   
  8. - package chat;
  9. - 
  10.   require 'sys/socket.ph';
  11.   
  12.   if( defined( &main'PF_INET ) ){
  13.       $pf_inet = &main'PF_INET;
  14. --- 4,12 ----
  15.   # multihome additions by A.Macpherson@bnr.co.uk
  16.   # allow for /dev/pts based systems by Joe Doupnik <JRD@CC.USU.EDU>
  17.   
  18.   require 'sys/socket.ph';
  19. + 
  20. + package chat;
  21.   
  22.   if( defined( &main'PF_INET ) ){
  23.       $pf_inet = &main'PF_INET;
  24. *** ./lib/ExtUtils/Install.pm    Thu Jul 23 21:00:35 1998
  25. --- ../perl5.005_02/./lib/ExtUtils/Install.pm    Fri Aug 14 10:57:06 1998
  26. ***************
  27. *** 23,28 ****
  28. --- 23,38 ----
  29.       unlink $_[0] or Carp::croak("Cannot forceunlink $_[0]: $!")
  30.   }
  31.   
  32. + use File::Path ();
  33. + ## begin SGI build environment hack
  34. + my($sgisrcoffs);
  35. + sub mkpath
  36. + {
  37. +   File::Path::mkpath(@_) if (@_ =~ m,blib/, or ! $sgisrcoffs);
  38. + }
  39. + ## end SGI build environment hack
  40. + 
  41. + 
  42.   sub install {
  43.       my($hash,$verbose,$nonono,$inc_uninstall) = @_;
  44.       $verbose ||= 0;
  45. ***************
  46. *** 34,42 ****
  47.       use File::Basename qw(dirname);
  48.       use File::Copy qw(copy);
  49.       use File::Find qw(find);
  50. -     use File::Path qw(mkpath);
  51.       use File::Compare qw(compare);
  52.   
  53.       my(%hash) = %$hash;
  54.       my(%pack, $dir, $warn_permissions);
  55.       my($packlist) = ExtUtils::Packlist->new();
  56. --- 44,63 ----
  57.       use File::Basename qw(dirname);
  58.       use File::Copy qw(copy);
  59.       use File::Find qw(find);
  60.       use File::Compare qw(compare);
  61.   
  62. +     ## begin SGI build environment hack
  63. +     if ($ENV{"RAWIDB"} and $ENV{"SRC"}) {
  64. +     my($curdir) = cwd();
  65. +     chdir($ENV{"SRC"});    # I need the physical SRC path
  66. +     my($srcdir) = cwd();    # to compare to the current source dir
  67. +     chdir($curdir);
  68. +     my($sgisrclen) = length($srcdir);
  69. +     open(RAWIDB, ">>$ENV{'RAWIDB'}") or Carp::croak("You do not have permission to append to the $ENV{'RAWIDB'} file");
  70. +         $sgisrcoffs = substr(cwd(),$sgisrclen);
  71. +         $sgisrcoffs = substr($sgisrcoffs, 1) if $sgisrcoffs =~ /^\//;
  72. +     }
  73. +     ## end SGI build environment hack
  74.       my(%hash) = %$hash;
  75.       my(%pack, $dir, $warn_permissions);
  76.       my($packlist) = ExtUtils::Packlist->new();
  77. ***************
  78. *** 49,54 ****
  79. --- 70,77 ----
  80.       }
  81.       my($source_dir_or_file);
  82.       foreach $source_dir_or_file (sort keys %hash) {
  83. +         # SGI build environment hack
  84. +         last if $sgisrcoffs;
  85.       #Check if there are files, and if yes, look if the corresponding
  86.       #target directory is writable for us
  87.       opendir DIR, $source_dir_or_file or next;
  88. ***************
  89. *** 98,103 ****
  90. --- 121,140 ----
  91.           my $targetdir = MY->catdir($targetroot,$File::Find::dir);
  92.           my $targetfile = MY->catfile($targetdir,$_);
  93.   
  94. +             ## begin SGI build environment hack
  95. +         if ($sgisrcoffs) {
  96. +         my($dest) = substr($targetfile, 1);
  97. +         $dest = substr($dest, 1) if $dest =~ /^\//; # strip ^/
  98. +         my($src) = $MY->catfile($sgisrcoffs,$source,$File::Find::dir,$_);
  99. +                 $src =~ s,/\./,/,g;
  100. +                 $dest =~ s,/\./,/,g;
  101. +         print RAWIDB "f 444 root sys $dest $src";
  102. +         print RAWIDB " $ENV{'IDB'}" if $ENV{'IDB'};
  103. +         print RAWIDB "\n";
  104. +         return;
  105. +         }
  106. +             ## end SGI build environment hack
  107. + 
  108.           my $diff = 0;
  109.           if ( -f $targetfile && -s _ == $size) {
  110.           # We have a good chance, we can skip this one
  111. ***************
  112. *** 136,143 ****
  113.       }, ".");
  114.       chdir($cwd) or Carp::croak("Couldn't chdir to $cwd: $!");
  115.       }
  116.       umask $umask unless $Is_VMS;
  117. !     if ($pack{'write'}) {
  118.       $dir = dirname($pack{'write'});
  119.       mkpath($dir,0,0755);
  120.       print "Writing $pack{'write'}\n";
  121. --- 173,186 ----
  122.       }, ".");
  123.       chdir($cwd) or Carp::croak("Couldn't chdir to $cwd: $!");
  124.       }
  125. +     ## begin SGI build environment hack
  126. +     if ($sgisrcoffs > 0) {
  127. +     close(RAWIDB);
  128. +     return;
  129. +     }
  130.       umask $umask unless $Is_VMS;
  131. !     if ($pack{'write'} and ! $sgisrcoffs) {
  132. !     ## end SGI build environment hack
  133.       $dir = dirname($pack{'write'});
  134.       mkpath($dir,0,0755);
  135.       print "Writing $pack{'write'}\n";
  136. ***************
  137. *** 244,250 ****
  138.   
  139.       use File::Basename qw(dirname);
  140.       use File::Copy qw(copy);
  141. -     use File::Path qw(mkpath);
  142.       use File::Compare qw(compare);
  143.       use AutoSplit;
  144.       # my $my_req = $self->catfile(qw(auto ExtUtils Install forceunlink.al));
  145. --- 287,292 ----
  146. *** ./lib/ExtUtils/MM_Unix.pm    Thu Jul 23 21:00:37 1998
  147. --- ../perl5.005_02/./lib/ExtUtils/MM_Unix.pm    Sat Aug 15 15:46:55 1998
  148. ***************
  149. *** 350,356 ****
  150.         echo optdebug=\$optdebug
  151.         echo large=\$large
  152.         echo split=\$split
  153. !       `;
  154.       my($line);
  155.       foreach $line (@o){
  156.           chomp $line;
  157. --- 350,356 ----
  158.         echo optdebug=\$optdebug
  159.         echo large=\$large
  160.         echo split=\$split
  161. !       `;            # "
  162.       my($line);
  163.       foreach $line (@o){
  164.           chomp $line;
  165. ***************
  166. *** 463,468 ****
  167. --- 463,505 ----
  168.       my(@m,$m);
  169.       push(@m,"\n# These definitions are from config.sh (via $INC{'Config.pm'})\n");
  170.       push(@m,"\n# They may have been overridden via Makefile.PL or on the command line\n");
  171. + 
  172. +     # SGI: IRIX-build extensions to use $ROOT and $TOOLROOT
  173. +     # pretend that this was added as command-line args.
  174. +     my($root) = $ENV{"ROOT"};
  175. +     my($toolroot) = $ENV{"TOOLROOT"};
  176. +     if (length($root) > 1) {
  177. +     $self->{"CC"}.=" -nostdinc";
  178. +     $self->{"CCFLAGS"} = " -I".
  179. +         $self->catdir($root,"usr/include") ." ". $self->{"CCFLAGS"};
  180. +     if ($self->{"CC"} =~ /-n32/ or $self->{"CCFLAGS"} =~ /-n32/) {
  181. +         $self->{"LDFLAGS"} = " -nostdlib -L".
  182. +         $self->catdir($root,"usr/lib32") ." ". $self->{"LDFLAGS"};
  183. +         $self->{"LDDLFLAGS"} .= " -check_registry " .
  184. +         $self->catdir($root,"usr/lib32", "so_locations");
  185. +     } elsif ($self->{"CC"} =~ /-64/ or $self->{"CCFLAGS"} =~ /-64/) {
  186. +         $self->{"LDFLAGS"} = " -nostdlib -L".
  187. +         $self->catdir($root,"usr/lib64") ." ". $self->{"LDFLAGS"};
  188. +         $self->{"LDDLFLAGS"} .= " -check_registry " .
  189. +         $self->catdir($root,"usr/lib64", "so_locations");
  190. +     } else {
  191. +         $self->{"LDFLAGS"} = " -nostdlib -L".
  192. +         $self->catdir($root,"usr/lib") ." ". $self->{"LDFLAGS"};
  193. +         $self->{"LDDLFLAGS"} .= " -check_registry " .
  194. +         $self->catdir($root,"usr/lib", "so_locations");
  195. +     }
  196. +     }
  197. +     if (length($toolroot) > 1) {
  198. +     $self->{"CC"}=$self->catdir($toolroot,"usr/bin",$self->{"CC"});
  199. +     $self->{"LD"}=$self->catdir($toolroot,"usr/bin",$self->{"LD"});
  200. +     $self->{"AR"}=$self->catdir($toolroot,"usr/bin",$self->{"AR"});
  201. +     }
  202. +     if ($ENV{"INSTALLDIRS"} eq "vendor") {
  203. +     $self->{"INSTALLMAN3DIR"} = "/usr/freeware/catman/u_man/man3";
  204. +     $self->{"INSTALLSCRIPT"} = "/usr/freeware/bin";
  205. +     }
  206. +     # end SGI customizations
  207. + 
  208.       my(%once_only);
  209.       foreach $m (@{$self->{CONFIG}}){
  210.       # SITE*EXP macros are defined in &constants; avoid duplicates here
  211. ***************
  212. *** 509,514 ****
  213. --- 546,569 ----
  214.       my($self) = @_;
  215.       my(@m,$tmp);
  216.   
  217. +     # SGI: IRIX-build extensions to use $ROOT and $TOOLROOT
  218. +     # pretend that this was added as command-line args.
  219. +     if ($ENV{"INSTALLDIRS"} eq "vendor") {
  220. +     $self->{"INSTALLSITELIB"} = $self->catdir($self->{"INSTALLPRIVLIB"},
  221. +                           "sgi_perl");
  222. +     $self->{"INSTALLSITEARCH"} = $self->catdir($self->{"INSTALLPRIVLIB"},
  223. +                            "sgi_perl");
  224. +     $self->{"SITELIBEXP"} = $self->{"INSTALLSITELIB"};
  225. +     $self->{"SITEARCHEXP"} = $self->{"INSTALLSITEARCH"};
  226. +     $self->{"INSTALLMAN3DIR"} = $self->{"MAN3DIR"} = $self->{"MAN3DIREXP"} =
  227. +         "/usr/share/catman/p_man/man3"; # hard-wired
  228. +     $self->{"INSTALLSCRIPT"} = $self->{"SCRIPTDIR"} =
  229. +         $self->{"SCRIPTDIREXP"} = "/usr/sbin"; # also hard-wired
  230. +     }
  231. +     if ($ENV{"PERL_SRC"}) {
  232. +     $self->{"PERL_SRC"} = $ENV{"PERL_SRC"};
  233. +     }
  234. +     # end of SGI customizations
  235.       for $tmp (qw/
  236.   
  237.             AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION
  238. ***************
  239. *** 1030,1037 ****
  240.          if ($^O eq 'solaris');
  241.   
  242.       # The IRIX linker also doesn't use LD_RUN_PATH
  243. !     $ldrun = qq{-rpath "$self->{LD_RUN_PATH}"}
  244. !     if ($^O eq 'irix' && $self->{LD_RUN_PATH});
  245.   
  246.       push(@m,'    LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ '.$ldrun.' $(LDDLFLAGS) '.$ldfrom.
  247.           ' $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(EXPORT_LIST)');
  248. --- 1085,1093 ----
  249.          if ($^O eq 'solaris');
  250.   
  251.       # The IRIX linker also doesn't use LD_RUN_PATH
  252. ! #     this breaks ROOT/TOOLROOT builds!!!!!
  253. ! #    $ldrun = qq{-rpath "$self->{LD_RUN_PATH}"}
  254. ! #    if ($^O eq 'irix' && $self->{LD_RUN_PATH});
  255.   
  256.       push(@m,'    LD_RUN_PATH="$(LD_RUN_PATH)" $(LD) -o $@ '.$ldrun.' $(LDDLFLAGS) '.$ldfrom.
  257.           ' $(OTHERLDFLAGS) $(MYEXTLIB) $(PERL_ARCHIVE) $(LDLOADLIBS) $(EXPORT_LIST)');
  258. ***************
  259. *** 1956,1964 ****
  260.   
  261.   pure_perl_install ::
  262.       }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  263. !         read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  264.           write }.$self->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  265. !         $(INST_LIB) $(INSTALLPRIVLIB) \
  266.           $(INST_ARCHLIB) $(INSTALLARCHLIB) \
  267.           $(INST_BIN) $(INSTALLBIN) \
  268.           $(INST_SCRIPT) $(INSTALLSCRIPT) \
  269. --- 2012,2026 ----
  270.   
  271.   pure_perl_install ::
  272.       }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  273. ! };
  274. !     unless ($ENV{"$RAWIDB"}) {
  275. !     push @m,
  276. ! q{        read }.$self->catfile('$(PERL_ARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  277.           write }.$self->catfile('$(INSTALLARCHLIB)','auto','$(FULLEXT)','.packlist').q{ \
  278. ! };
  279. ! }
  280. ! push @m,
  281. ! q{        $(INST_LIB) $(INSTALLPRIVLIB) \
  282.           $(INST_ARCHLIB) $(INSTALLARCHLIB) \
  283.           $(INST_BIN) $(INSTALLBIN) \
  284.           $(INST_SCRIPT) $(INSTALLSCRIPT) \
  285. ***************
  286. *** 1970,1978 ****
  287.   
  288.   pure_site_install ::
  289.       }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  290. !         read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
  291.           write }.$self->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
  292. !         $(INST_LIB) $(INSTALLSITELIB) \
  293.           $(INST_ARCHLIB) $(INSTALLSITEARCH) \
  294.           $(INST_BIN) $(INSTALLBIN) \
  295.           $(INST_SCRIPT) $(INSTALLSCRIPT) \
  296. --- 2032,2046 ----
  297.   
  298.   pure_site_install ::
  299.       }.$self->{NOECHO}.q{$(MOD_INSTALL) \
  300. ! };
  301. !     unless ($ENV{"$RAWIDB"}) {
  302. !     push @m,
  303. ! q{        read }.$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist').q{ \
  304.           write }.$self->catfile('$(INSTALLSITEARCH)','auto','$(FULLEXT)','.packlist').q{ \
  305. ! };
  306. !     }
  307. !     push @m,
  308. ! q{        $(INST_LIB) $(INSTALLSITELIB) \
  309.           $(INST_ARCHLIB) $(INSTALLSITEARCH) \
  310.           $(INST_BIN) $(INSTALLBIN) \
  311.           $(INST_SCRIPT) $(INSTALLSCRIPT) \
  312. *** ./lib/ExtUtils/Liblist.pm    Wed Aug  5 16:02:22 1998
  313. --- ../perl5.005_02/./lib/ExtUtils/Liblist.pm    Sat Aug 15 13:46:34 1998
  314. ***************
  315. *** 41,46 ****
  316. --- 41,54 ----
  317.       my($fullname, $thislib, $thispth, @fullname);
  318.       my($pwd) = cwd(); # from Cwd.pm
  319.       my($found) = 0;
  320. +     # SGI product build extension:
  321. +     if (length($ENV{"ROOT"}) > 1) {
  322. +         # $ROOT overrides standard library search path
  323. +         @libpath = map($_ = $self->catdir($ENV{"ROOT"}, $_), @libpath);
  324. +         $potential_libs = join(" ", map($_ = "-L$_", @libpath)) . " "
  325. +             . $potential_libs;
  326. +         push(@ldloadlibs, "-nostdlib");
  327. +     }
  328.   
  329.       foreach $thislib (split ' ', $potential_libs){
  330.   
  331. *** ./lib/ExtUtils/MakeMaker.pm    Thu Jul 23 21:00:40 1998
  332. --- ../perl5.005_02/./lib/ExtUtils/MakeMaker.pm    Sat Aug 15 13:42:35 1998
  333. ***************
  334. *** 60,66 ****
  335.       sub DESTROY {}
  336.   }
  337.   
  338. ! # "predeclare the package: we only load it via AUTOLOAD
  339.   # but we have already mentioned it in @ISA
  340.   package ExtUtils::Liblist;
  341.   
  342. --- 60,66 ----
  343.       sub DESTROY {}
  344.   }
  345.   
  346. ! # predeclare the package: we only load it via AUTOLOAD
  347.   # but we have already mentioned it in @ISA
  348.   package ExtUtils::Liblist;
  349.   
  350. ***************
  351. *** 506,511 ****
  352. --- 506,514 ----
  353.       $v =~ tr/\n/ /s;
  354.       push @{$self->{RESULT}}, "#    $key => $v";
  355.       }
  356. + 
  357. +     # SGI-specific: turn off parallel-make
  358. +     push @{$self->{RESULT}}, "\n# SGI: no parallel make\n.MAKEFLAGS: -J 1";
  359.   
  360.       # turn the SKIP array into a SKIPHASH hash
  361.       my (%skip,$skip);
  362. *** ./x2p/cflags.SH    Thu Jul 23 21:02:58 1998
  363. --- ../perl5.005_02/./x2p/cflags.SH    Fri Aug 14 11:07:11 1998
  364. ***************
  365. *** 84,89 ****
  366. --- 84,97 ----
  367.   
  368.       ccflags="`echo $ccflags | sed -e 's/-DMULTIPLICITY//'`"
  369.   
  370. +         # SGI-ism for ROOT/TOOLROOT build
  371. +         if test -n "$TOOLROOT"; then
  372. +                 cc=`echo "$TOOLROOT/usr/bin/$cc" | sed -e "s,//,/,g"`
  373. +         fi
  374. +         if test -n "$ROOT"; then
  375. +                 ccflags=`echo "$ccflags -nostdinc -I$ROOT/usr/include" | sed -e "s,//,/,g"`
  376. +         fi
  377. + 
  378.       echo "$cc -c $ccflags $optimize $large $split"
  379.       eval "$also "'"$cc -c $ccflags $optimize $large $split"'
  380.   
  381. *** ./pp.c    Tue Aug  4 14:58:01 1998
  382. --- ../perl5.005_02/./pp.c    Tue Aug 11 10:52:12 1998
  383. ***************
  384. *** 1574,1582 ****
  385.       if (value == 0.0)
  386.       value = 1.0;
  387.       if (!srand_called) {
  388. !     (void)my_srand((unsigned)seed());
  389.       srand_called = TRUE;
  390.       }
  391.   #if RANDBITS == 31
  392.       value = my_rand() * value / 2147483648.0;
  393.   #else
  394. --- 1574,1589 ----
  395.       if (value == 0.0)
  396.       value = 1.0;
  397.       if (!srand_called) {
  398. ! #if RANDBITS == 48
  399. !        (void)srand48((long)seed());
  400. ! #else
  401. !        (void)my_srand((unsigned)seed());
  402. ! #endif
  403.       srand_called = TRUE;
  404.       }
  405. + #if RANDBITS == 48
  406. +     value = drand48() * value;
  407. + #else
  408.   #if RANDBITS == 31
  409.       value = my_rand() * value / 2147483648.0;
  410.   #else
  411. ***************
  412. *** 1590,1595 ****
  413. --- 1597,1603 ----
  414.   #endif
  415.   #endif
  416.   #endif
  417. + #endif
  418.       XPUSHn(value);
  419.       RETURN;
  420.   }
  421. ***************
  422. *** 1602,1608 ****
  423. --- 1610,1620 ----
  424.       anum = seed();
  425.       else
  426.       anum = POPu;
  427. + #if RANDBITS == 48
  428. +     (void)srand48((long)anum);
  429. + #else
  430.       (void)my_srand((unsigned)anum);
  431. + #endif
  432.       srand_called = TRUE;
  433.       EXTEND(SP, 1);
  434.       RETPUSHYES;
  435. *** ./config_h.SH    Thu Jul 23 20:59:41 1998
  436. --- ../perl5.005_02/./config_h.SH    Sun Aug 16 09:41:16 1998
  437. ***************
  438. *** 1605,1614 ****
  439. --- 1605,1619 ----
  440.    *    C preprocessor can make decisions based on it.  It is only
  441.    *    defined if the system supports long long.
  442.    */
  443. + /* USE_LONG_LONG:
  444. +  *    This symbol says to enable the experimental UV == long long
  445. +  *    code.
  446. +  */
  447.   #$d_longlong HAS_LONG_LONG        /**/
  448.   #ifdef HAS_LONG_LONG
  449.   #define LONGLONGSIZE $longlongsize        /**/
  450.   #endif
  451. + #$d_uselonglong USE_LONG_LONG        /**/
  452.   
  453.   /* HAS_SETGROUPS:
  454.    *    This symbol, if defined, indicates that the setgroups() routine is
  455. *** ./cflags.SH    Thu Jul 23 20:59:40 1998
  456. --- ../perl5.005_02/./cflags.SH    Fri Aug 14 10:52:48 1998
  457. ***************
  458. *** 124,129 ****
  459. --- 124,140 ----
  460.           optimize="$optdebug"
  461.       fi
  462.   
  463. +         # SGI-ism for ROOT/TOOLROOT build
  464. +     if test -s "perl.cfb" ; then
  465. +         CFB="-fb perl.cfb";
  466. +     fi
  467. +         if test -n "$TOOLROOT"; then
  468. +                 cc=`echo "$TOOLROOT/usr/bin/$cc $CFB" | sed -e "s,//,/,g"`
  469. +         fi
  470. +         if test -n "$ROOT"; then
  471. +                 ccflags=`echo "$ccflags -nostdinc -I$ROOT/usr/include" | sed -e "s,//,/,g"`
  472. +         fi
  473. + 
  474.       : Can we perhaps use $ansi2knr here
  475.       echo "$cc -c -DPERL_CORE $ccflags $optimize $perltype $large $split"
  476.       eval "$also "'"$cc -DPERL_CORE -c $ccflags $optimize $perltype $large $split"'
  477. *** ./installman    Thu Jul 23 21:00:23 1998
  478. --- ../perl5.005_02/./installman    Sun Aug 23 14:24:58 1998
  479. ***************
  480. *** 23,37 ****
  481.   $usage =
  482.   "Usage:  installman --man1dir=/usr/wherever --man1ext=1
  483.                       --man3dir=/usr/wherever --man3ext=3
  484. !             --notify --help
  485.       Defaults are:
  486.       man1dir = $Config{'installman1dir'};
  487.       man1ext = $Config{'man1ext'};
  488.       man3dir = $Config{'installman3dir'};
  489.       man3ext = $Config{'man3ext'};
  490.       --notify (or -n) just lists commands that would be executed.\n";
  491.   
  492. ! GetOptions( qw( man1dir=s man1ext=s man3dir=s man3ext=s notify n help)) 
  493.       || die $usage;
  494.   die $usage if $opt_help;
  495.   
  496. --- 23,38 ----
  497.   $usage =
  498.   "Usage:  installman --man1dir=/usr/wherever --man1ext=1
  499.                       --man3dir=/usr/wherever --man3ext=3
  500. !             --packdir=/usr/whatever/ --notify --help
  501.       Defaults are:
  502.       man1dir = $Config{'installman1dir'};
  503.       man1ext = $Config{'man1ext'};
  504.       man3dir = $Config{'installman3dir'};
  505.       man3ext = $Config{'man3ext'};
  506. +     packdir = $Config{'installarchlib'};
  507.       --notify (or -n) just lists commands that would be executed.\n";
  508.   
  509. ! GetOptions( qw( man1dir=s man1ext=s man3dir=s man3ext=s packdir=s notify n help)) 
  510.       || die $usage;
  511.   die $usage if $opt_help;
  512.   
  513. ***************
  514. *** 40,45 ****
  515. --- 41,47 ----
  516.   $man1ext = defined($opt_man1ext) ? $opt_man1ext : $Config{'man1ext'};
  517.   $man3dir = defined($opt_man3dir) ? $opt_man3dir : $Config{'installman3dir'};
  518.   $man3ext = defined($opt_man3ext) ? $opt_man3ext : $Config{'man3ext'};
  519. + $packdir = defined($opt_packdir) ? $opt_packdir : $Config{'installarchlib'};
  520.   
  521.   $notify = $opt_notify || $opt_n;
  522.   
  523. ***************
  524. *** 53,59 ****
  525.   -x "t/perl$Config{exe_ext}"        || warn "WARNING: You've never run 'make test'!!!",
  526.       "  (Installing anyway.)\n";
  527.   
  528. ! $packlist = ExtUtils::Packlist->new("$Config{installarchlib}/.packlist");
  529.   
  530.   # Install the main pod pages.
  531.   runpod2man('pod', $man1dir, $man1ext);
  532. --- 55,61 ----
  533.   -x "t/perl$Config{exe_ext}"        || warn "WARNING: You've never run 'make test'!!!",
  534.       "  (Installing anyway.)\n";
  535.   
  536. ! $packlist = ExtUtils::Packlist->new("$packdir/.packlist");
  537.   
  538.   # Install the main pod pages.
  539.   runpod2man('pod', $man1dir, $man1ext);
  540. *** ./Makefile.SH    Thu Jul 23 20:59:30 1998
  541. --- ../perl5.005_02/./Makefile.SH    Fri Aug 14 17:01:20 1998
  542. ***************
  543. *** 90,95 ****
  544. --- 90,114 ----
  545.       base=`echo "$f" | sed 's/.*\///'`
  546.       nonxs_list="$nonxs_list ext/$f/pm_to_blib"
  547.   done
  548. + # SGI-specific for building in the cross-compilation environment.
  549. + 
  550. + case "$cc" in
  551. +     *"-n32"*)    ABILIB="32"    ;;
  552. +     *"-64"*)    ABILIB="64"    ;;
  553. +     *"-32"*|*)    ABILIB=""    ;;
  554. + esac
  555. + 
  556. + if test -n "$TOOLROOT"; then
  557. +     if test -s perl.cfb; then
  558. +         CFB="-fb perl.cfb"
  559. +     fi
  560. +     cc=`echo "$TOOLROOT/usr/bin/$cc $CFB" | sed -e "s,//,/,g"`
  561. +     ld=`echo "$TOOLROOT/usr/bin/$ld $CFB" | sed -e "s,//,/,g"`
  562. + fi
  563. + if test -n "$ROOT"; then
  564. +     ldflags=`echo "$ldflags -nostdlib -L$ROOT/usr/lib$ABILIB -L$ROOT/lib$ABILIB" | sed -e "s,//,/,g"`
  565. +     lddlflags=`echo "$lddlflags -check_registry $ROOT/usr/lib$ABILIB/so_locations" | sed -e "s,//,/,g"`
  566. + fi
  567.   
  568.   echo "Extracting Makefile (with variable substitutions)"
  569.   $spitshell >Makefile <<!GROK!THIS!
  570. *** ./utils/h2ph.PL    Thu Jul 23 21:02:28 1998
  571. --- ../perl5.005_02/./utils/h2ph.PL    Mon Aug 24 21:32:30 1998
  572. ***************
  573. *** 230,238 ****
  574.           print OUT $t,"}\n";
  575.           } elsif(/^undef\s+(\w+)/) {
  576.           print OUT $t, "undef(&$1) if defined(&$1);\n";
  577. !         } elsif(/^error\s+(.*)/) {
  578.           print OUT $t, "die(\"$1\");\n";
  579. !         } elsif(/^warning\s+(.*)/) {
  580.           print OUT $t, "warn(\"$1\");\n";
  581.           } elsif(/^ident\s+(.*)/) {
  582.           print OUT $t, "# $1\n";
  583. --- 230,238 ----
  584.           print OUT $t,"}\n";
  585.           } elsif(/^undef\s+(\w+)/) {
  586.           print OUT $t, "undef(&$1) if defined(&$1);\n";
  587. !         } elsif(/^error\s+"?([^"\n]*)/) {
  588.           print OUT $t, "die(\"$1\");\n";
  589. !         } elsif(/^warning\s+"?([^"\n]*)/) {
  590.           print OUT $t, "warn(\"$1\");\n";
  591.           } elsif(/^ident\s+(.*)/) {
  592.           print OUT $t, "# $1\n";
  593. *** ./Configure    Fri Aug  7 14:38:53 1998
  594. --- ../perl5.005_02/./Configure    Sat Aug 15 00:01:56 1998
  595. ***************
  596. *** 1143,1149 ****
  597.   case "$fastread$alldone" in
  598.   yescont|yesexit) ;;
  599.   *)
  600. !     if test ! -t 0; then
  601.           echo "Say 'sh Configure', not 'sh <Configure'"
  602.           exit 1
  603.       fi
  604. --- 1143,1149 ----
  605.   case "$fastread$alldone" in
  606.   yescont|yesexit) ;;
  607.   *)
  608. !     if test "$extractsh" != "true" -a ! -t 0; then
  609.           echo "Say 'sh Configure', not 'sh <Configure'"
  610.           exit 1
  611.       fi
  612.